home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DTP / P-Z / Zapper(Xpress) 2.0a.cpt / Zapper (version 2.0A).rsrc / STR#_2.txt < prev    next >
Text File  |  1990-12-21  |  500b  |  14 lines
  1. {1 index xprot0 eq 3 index xpfreq1 eq and{3 1 roll pop pop xpfreq0 xprot0 3 -1 roll}
  2. if}ifelse}ifelse}ifelse xpsetscreen}def
  3.  
  4. {xpcount 1 eq
  5. {/xpcount 2 def/xpspf1 exch def /xprot1 exch def /xpfreq1 exch def xpfreq0 xprot0 /xpspf0 load}
  6. {dup /xpspf1 load eq 2 index xprot1 eq and 3 index xpfreq1 eq and
  7. {pop pop pop xpfreq0 xprot0 /xpspf0 load}
  8.  
  9. currentscreen /xpspf0 exch def /xprot0 exch def /xpfreq0 exch def
  10. /xpcount 0 def
  11. /xpsetscreen /setscreen load def
  12. /setscreen{xpcount 0 eq{/xpcount 1 def}
  13.  
  14.